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PROGRAM DESCRIPTION 


Catalog No. 300019A 


IDENTIFICATION: 

810A ASCII to EBCDIC conversion routine 

AUTHOR: 

W. A. Speer 

ACCEPTED: 

August 4, 1967 

PURPOSE: 

To translate a buffer of data from ASCII to EBCDIC 

COMPUTER 

CONFIGURATION: 

SEL 81 OA 

SUBROUTINES 

REQUIRED: 

None 

ST OR AGE: 

76 0 locations 
o 

TIMING: 

15 + 24* N cycles - approx, where N=number of words in 
buffer 

LOADING 

PROCEDURE: 

The program which calls this subroutine and this subroutine 
must be loaded with the 81 OA Standard Paper Tape Load/ 

Dump (Catalog number 300001B) 

USE: 

Calling Sequence: 


CALL ATQ5E 

DAC BUF Address of buffer 

DATA N Word count 


The ASCII character to be translated must be in bits 8-15 of 
the word. Bits 0-7 are ignored. THE EBCDIC character is 
returned in bits 0-7 and bits 8-15 are set to zero. 

METHOD: 

The 2 most significant bits of the ASCII character are dropped 
and an indexed table look-up is performed. 
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□ 001 

00000 

00000000 *« 




1 ft 

0002 

00000 

00000000 # 





0003 

00000 

00000000 • 





0004 

00000 

00000000 * 

610A ASCII T0 

EBCDIC C0NVER510N RMUTJNE CATAL0G N«. 300019A 


0005 

00000 

00000000 • 





0006 

00000 

00000000 * 

PROGRAMMER 

W. A. SPEER 



0007 

00000 

00000000 » 





0008 

00000 

oooooouo # 

AUGUST 4, 1967 



0009 

00000 

00000000 « 





0010 

00000 

00000000 « 

PURPOSE - T0 

TRANSLATE A BUFFER FR0M FULL ASCII T0 EBCDIC. 


0011 

00000 

00000000 * 

THE ASCII CHARACTER IS TP BE IN BITS 6-15, BITS 0-7 

ARE 


001? 

00000 

00000000 • 

IGN0RED UP2N 

ENTRANCE Tlfl THE SUBROUTINE. AN EBCDIC 

CHARACTER 


0013 

00000 

00000000 » 

IS RETURNED 

IN BITS 0-7 AND BITS b-15 ARE SET Tfc} ZERB. 


0014 

00000 

00000000 • 





0015 

00000 

00000000 • 

CALLING SEQUENCE 



0016 

00000 

00000000 * 

CALL 

ATBE 



0017 

00000 

00000000 » 

DAC 

BUF ADDRESS 0F FIRST W0RD «F BUF 



0016 

00000 

00000000 * 

DATA 

N M0RD C0UNT 



0019 

00000 

oooooooo # 





0020 

00000 

00000000 *• 




1 # 

0021 

00000 

oooooooo 

REL 




002? 

00000 

50000000 

NAME AT3£,AT0E 



0022 

00000 

oooooooo 





0022 

00000 

00212017 





0022 

00000 

01220040 





0023 

r > 00000 

00000000 A T #•* ## 




0024 

00001 

01300000 

LAA# AT0E 

PICK UP ADDRESS E-F BUF 



0025 

00002 

14100000 

IMS AT0E 

INCREMENT T0 WD C0UNT 



0026 

00003 

03100033 

STA AUDR 

ST0RE ADDRESS 0F FIRST MO 0F; BUF 



0027 

00004 

01300000 

LAA# ATPt 

PICK UP W0RD C0UNT 



0028 

00005 

14100000 

IMS A T f?E 

INCREMENT F0P RETURN 



0029 

00006 

00000002 

NFU 

NEGATE W0RD COUNT 



0030 

00007 

03100032 

STA WDCT 

ST0RE NEGATIVE HPRD COUNT 



0031 

00010 

01300033 L0psp LAA# ADDR 

PICK UP DATA wD 



0032 

00011 

02100034 

LBA MSK1 

PICK UP MASK- 



0033 

00012 

00000027 

ABA 

•AMU* T id GIVE TRUNCATED ASCII 



0034 

00013 

0000011? 

FRA 1 

PUSH 0FF LAST PIT 1NT0 B ACC 



0035 

0001 4 

0 0 0 0 0 0 U 6 

i AU 

interchange t c st last bit 



0030 

00U15 

OOOOOOo? 

S Mid 

WAS THE LAST hIT ON 
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0037 00016 

0036 00017 

0039 00020 

0040 00020 

0041 00020 

0042 00020 

0043 00021 

0044 00021 

0045 00021 

0046 00021 

0047 00022 

0046 00023 

0049 00023 

0050 00023 

0051 00024 

0052 00025 

0053 00025 

0054 00025 

0055 00026 

0056 00027 

0057 00030 

0056 00031 

0059 00032 

0060 00033 

0061 00034 

0062 00035 

0063 00036 

0064 00037 

0065 00040 

0066 00041 

0067 00042 

0068 00043 

0069 00044 

0070 00045 

0071 00046 

007? 00047 

0073 00050 

0074 00U51 

0075 00052 

0076 00053 


11100022 
01500036 2DD 
00000000 • 
00000000 * 
00000000 • 
00001016 
00000000 * 
00000000 • 
00000000 * 
11100025 
01500036 EVEN 
00000000 • 
UOQOQOOO * 
02100035 
00000027 
00000000 * 
00000000 * 
03300033 ARND 
14100033 
14100032 
11100010 
11300000 
00000000 WUCT 
00000000 AUDR 
00000077 MSK1 
00177400 MSK2 
00076301 TA8L 
00141303 
00142305 
00143307 
00144311 
00150722 
00151724 
00152726 
00153730 
00154742 
00161744 
00162746 
001637yO 
00164515 


BRU 

EVEN 

LAA 

TABL.l 

LSL 

B 


ORU 

ARNU 

LAA 

TABL, 1 

lba 

MSK2 

ABA 



ST A* 

ADDR 

IMS 

AODR 

IMS 

WDCT 

BRU 

L00P 

BRU* 

AT0E 

##* 

** 

#* * 

• • 

U A T A 

•000077 

DATA 

•177400 

DATA 

•076301 

DATA 

•141303 

data 

•142305 

DATA 

•143307 

data 

•144311 

data 

•150722 

uata 

•151724 

BATA 

•152726 

OAT A 

•153730 

DATA 

• 154742 

U A 1 A 

*161744 

DA] A 

• 162746 

data 

• 163750 

data 

• 164515 
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N0 - THE** C0NSIDER THE N0. EVEN 
YES - 0DD - PICK UP THE ENTRY 
FR0M THE TABLE USING THE 
TRUNCATED ASCII WITHOUT ITS 
LAST BIT AS AN INDEX 
SINCE THE DATA MD IS 0DD 
DR0P THE LEFTMOST B BITS 
LEAVING THE EBCDIC EQUIVALENT 
IN THE FIRST 6 BITS 0F ACCUM 
GB TP) THE STAKE P0UTINE 

pick up the entry frah the 
Table USING THE TRUNCATED ASCII 
WITHOUT ITS LAST BIT AS AN INDEX 
PICK UP MASK, ♦AND• T0 D90P 
OFF THE RIGHTMOST B BITS LEAVING 

the ebcuic equivalent in the 

LEFTMOST 6 BITS OF ACCUM 
STORE EBCDIC IN BUF 
INCREMENT T0 NEXT WD IN BUF 
INCREMENT NEO CT - IS IT ZERO 
N0 - G0 BACK FOR ANOTHER HD 
YES - FINISHED - RETURN 


300-301 
302 - 303 
304 - 305 
306 - 3U7 
310 - 311 
31? - 313 
314 - 315 
316 - 317 
320 - 321 
32? - 323 
324 - 325 
326 - 327 
330 - 331 
33? - 333 
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0077 

00054 

00060535 

OAT A 

• 060535 

0078 

00055 

00003407 

DATA 

♦003407 

0079 

00056 

00040132 

uata 

• 040132 

0080 

00057 

00077573 

DATA 

•077573 

0061 

00060 

00055554 

OAT A 

• 055554 

0062 

00061 

00050175 

data 

• 050175 

0063 

00062 

00046535 

OAT A 

* 046535 

0064 

00063 

00056116 

data 

•056116 

0085 

00064 

00065540 

DATA 

* 065540 

0086 

00065 

000*5541 

data 

♦ 045541 

0067 

00066 

00170361 

DATA 

•170361 

006b 

00067 

00171363 

DATA 

• 171363 

0089 

00070 

00172365 

DATA 

•172365 

0090 

00071 

00173367 

DATA 

•173367 

0091 

00U72 

00174371 

DATA 

*174371 

0092 

00073 

00075136 

UATA 

•075136 

0093 

00074 

00046176 

uata 

•046176 

0094 

0QU75 

00067157 

data 

*067157 

0095 

00076 

70400000 

bNU 
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334 - 335 
336 - 337 
240 - 241 
242 - 243 
244 - 245 
246 - 247 
250 - 251 
252 - 253 
254 - 255 
256 - 257 
260 - ?6l 
2262 - 263 
264 - 265 
266 - 267 
270 - 271 
272 - 273 
274 - 275 
276 - 277 




